home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Battle of the Superstars
/
Battle of the Superstars.bin
/
pc
/
pcpz.dxr
/
00129_Field_129.txt
< prev
next >
Wrap
Text File
|
1995-04-11
|
2KB
|
70 lines
on checksounds babe
-- global NUMCURS, NUMZONES
set castbase = d22 + (babe-1)*32
set tot = 0
repeat with zo = 0 to 4 -- NUMZONES-1
set zoname = line (zo+1) of the text of cast a54
put " ZONE: " && zoname && zo
set tot1 = 0
repeat with i = 1 to 5 -- NUMCURS-1
set curnam = line (i) of the text of cast a53
set str = line (i+1) of the text of cast (castbase + zo)
put " CURS: " && i && curnam && str
set nwords = the number of words in str
set v = integer(word 1 of str)
set tot1 = tot1 + v
repeat with wd = 2 to nwords
set cnam = word wd of str
put " " & cnam
puppetsound cnam
end repeat
end repeat
put " zone total: " && tot1
set tot = tot + tot1
end repeat
put "babe tot: " && tot
end checksounds
on checkzones babe
-- global NUMCURS, NUMZONES
set castbase = d22 + (babe-1)*32
set tot = 0
repeat with zo = 0 to 4 -- NUMZONES-1
set zoname = line (zo+1) of the text of cast a54
set tot1 = 0
repeat with i = 1 to 5 -- NUMCURS-1
set curnam = line (i) of the text of cast a53
set str = line (i+1) of the text of cast (castbase + zo)
set v = integer(word 1 of str)
set tot1 = tot1 + v
end repeat
put " ZONE: " && zoname && tot1
set tot = tot + tot1
end repeat
put "babe tot: " && tot
end checkzones
on checkgoodies babe
-- global NUMCURS, NUMZONES
set castbase = d22 + (babe-1)*32
set tot = 0
repeat with i = 1 to 5 -- NUMCURS-1
set curnam = line (i) of the text of cast a53
set tot1 = 0
repeat with zo = 0 to 4 -- NUMZONES-1
set zoname = line (zo+1) of the text of cast a54
-- put " ZONE: " && zoname && zo
set str = line (i+1) of the text of cast (castbase + zo)
set v = integer(word 1 of str)
set tot1 = tot1 + v
end repeat
put "CURS: " && curnam && tot1
set tot = tot + tot1
end repeat
put "babe tot: " && tot
end checksounds